home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE3 / SCRIBBLE / Examples / page < prev    next >
Text File  |  2002-09-05  |  571b  |  18 lines
  1. x,y = BEGIN (arg[1].."1"), BEGIN (arg[1].."2") 
  2. x:begin_page(A5.width,A5.height)
  3. y:begin_page(A5.width,A5.height)
  4. x.font = x:findfont("Helvetica","host",0)
  5. y.font = y:findfont("Courier","host",0)
  6. x:setfont(x.font,20)
  7. y:setfont(y.font,20)
  8. x:show_xy("This is page1.",10,A5.height*0.9)
  9. y:show_xy("This is page2.",10,A5.height*0.9)
  10. x:continue_text("Click red * below")
  11. y:END()
  12. x:continue_text("to go to page2.")
  13. x:setcolor("both","rgb",1,0,0,0) -- red
  14. x:show_boxed("*",10,A5.height*0.7,30,20,"center","")
  15. x:add_launchlink(10,A5.height*0.7,40,A5.height*0.8,"page2")
  16. x:END ()
  17.  
  18.